Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_67 / tinglove.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1985-11-19 | 36KB | 324 lines

1 VARNAME 10 MODE 100 VARNAME 1000 REM initialise for start of game 1001 VARNAME 1002 BLOAD 1004 SCREEN COPY 1005 FOR 1006 FOR 1007 VARNAME 1008 FOR 1009 GOSUB 101 IF 1010 IF 1011 VARNAME 1019 RETURN 102 GOSUB 1020 WHILE 103 IF 1030 IF 1031 LOGIC 1032 LOGIC 104 VARNAME 1040 GOSUB 105 IF 1050 REM sort out who goes first in 2 player mode 1051 VARNAME 1052 VARNAME 1055 RETURN 106 INC 107 IF 108 IF 109 UPDATE 11 FOR 110 SPRITE 1100 DREG 1101 INK 1102 SCREEN COPY 1103 FADE 1104 SET ZONE 1105 VARNAME 1106 VARNAME 1107 SCREEN COPY 111 RETURN 112 INC 1120 WHILE 1121 IF 1122 IF 1123 RETURN 115 VARNAME 116 VARNAME 117 VARNAME 12 DATA 120 IF 121 VARNAME 122 INC 125 IF 129 RETURN 13 FOR 130 REM check movement 131 IF 132 IF 133 IF 134 IF 135 VARNAME 136 RETURN 14 DATA 140 REM check generators 141 VARNAME 142 INC 150 REM create new generator 151 IF 152 VARNAME 153 INC 154 VARNAME 155 VARNAME 156 VARNAME 157 INC 158 VARNAME 160 REM create new monster 161 VARNAME 162 INC 163 VARNAME 164 RETURN 165 REM update generator 166 VARNAME 170 REM check for next available animation 171 IF 172 VARNAME 173 INC 174 VARNAME 175 REM do block update 176 VARNAME 177 REM do bonus update 178 VARNAME 180 REM show bonuses 181 VARNAME 182 INC 183 IF 184 VARNAME 185 INC 189 RETURN 190 INC 191 VARNAME 192 VARNAME 193 VARNAME 194 VARNAME 195 VARNAME 196 VARNAME 197 SCREEN COPY 198 GOSUB 199 VARNAME 1999 RETURN 2 OPEN 20 RESERVE 200 IF 2000 DEFAULT 201 VARNAME 202 GOSUB 203 INC 204 INC 205 VARNAME 206 IF 207 VARNAME 208 VARNAME 209 VARNAME 21 RESERVE 210 VARNAME 211 VARNAME 212 VARNAME 215 IF 219 RETURN 220 REM do ghost update 221 VARNAME 222 VARNAME 225 VARNAME 226 INC 229 RETURN 230 REM kill ghost 231 IF 239 RETURN 240 IF 241 PRINT 243 INPUT 244 INC 245 REM send event list 246 IF 25 LOAD 250 PRINT 255 REM go through events and update 256 VARNAME 257 VARNAME 258 INC 259 RETURN 260 VARNAME 261 RETURN 262 VARNAME 264 VARNAME 266 VARNAME 268 VARNAME 270 VARNAME 272 VARNAME 274 VARNAME 276 VARNAME 278 VARNAME 280 VARNAME 282 VARNAME 284 PRINT 285 RETURN 286 INPUT 287 RETURN 288 IF 289 RETURN 290 VARNAME 291 REM get glove 292 VARNAME 30 GOSUB 300 VARNAME 301 IF 302 IF 303 IF 304 IF 305 IF 306 IF 307 IF 310 VARNAME 311 VARNAME 32 VARNAME 320 INC 349 RETURN 35 EXTENSION (Index #19) (Token 0x84) 350 REM hit me button hit 351 VARNAME 352 VARNAME 353 VARNAME 354 VARNAME 355 VARNAME 356 IF 357 RETURN 36 GET PALETTE 360 VARNAME 365 VARNAME 366 GOSUB 367 VARNAME 37 GOSUB 370 VARNAME 371 GOSUB 372 VARNAME 375 VARNAME 376 GOSUB 377 VARNAME 380 VARNAME 381 GOSUB 382 VARNAME 4 DIM 40 GOSUB 400 REM show health (hlth(pl)) 401 VARNAME 403 IF 404 SCREEN COPY 409 RETURN 410 SCREEN COPY 415 REM display score for player p 416 LOCATE 420 REM check for generators 421 DREG 422 IF 423 VARNAME 424 VARNAME 430 REM hit pit ! 431 IF 432 IF 433 IF 434 VARNAME 44 IF 440 REM attack something ! 441 IF 443 IF 444 VARNAME 445 VARNAME 446 VARNAME 447 IF 448 INC 449 VARNAME 45 VARNAME 450 VARNAME 451 INC 46 IF 469 RETURN 47 IF 470 REM hit generator 471 VARNAME 472 IF 473 VARNAME 474 INC 475 VARNAME 479 RETURN 48 IF 480 REM crossbow 481 IF 482 VARNAME 483 SHOOT 484 REM animate crossbow bolt # B 485 IF 486 VARNAME 487 VARNAME 488 IF 489 IF 49 IF 490 DEC 491 RETURN 492 REM hit ghost with arrow 493 VARNAME 494 INC 5 DIM 50 GOSUB 500 IF 501 IF 502 IF 503 IF 504 GOSUB 505 IF 506 PAPER 51 GOSUB 52 IF 520 REM do bonus 521 VARNAME 522 INC 523 VARNAME 53 IF 530 REM fireball 531 IF 532 DEC 533 BOOM 534 REM animate fireball 535 IF 536 VARNAME 537 VARNAME 538 IF 539 IF 54 IF 540 DEC 541 RETURN 542 REM hit ghost with fireball 543 VARNAME 544 INC 55 VARNAME 550 REM do crossbow bolt update 551 VARNAME 552 REM do fireball update 553 VARNAME 56 IF 57 INC 58 IF 59 IF 6 DIM 60 VARNAME 61 IF 7 DATA 8 DATA 9 DATA 90 IF 99 GOTO